﻿Public Class Control
    Private _resultado As Resultado
    Public Property Resultado() As Resultado
        Get
            Return _resultado
        End Get
        Set(ByVal value As Resultado)
            _resultado = value
        End Set
    End Property

    Private Sub Control_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim brush As Brush
        Select Case _resultado
            Case ControlDeUsuario.Resultado.Bien
                brush = Brushes.Green
            Case ControlDeUsuario.Resultado.Mal
                brush = Brushes.Red
            Case Else
                brush = Brushes.Yellow
        End Select
        e.Graphics.FillEllipse(brush, Me.DisplayRectangle)
        e.Graphics.DrawEllipse(Pens.Black, Me.DisplayRectangle)
    End Sub
End Class

Public Enum Resultado
    Mal
    Regular
    Bien
End Enum